(setf arr (make-array '(2 3) :initial-element 1))
(setf arr3 (make-array '(4 3 2) :initial-element 1))
(setf arr4 (make-array '(5 4 3 2) :initial-element 1))
(setf arr1 (make-array '(4) :initial-element 2))
(setf arr1-1 (make-array 4 :initial-element 4))
(setf vec (vector "a" 'b 3))

